﻿Imports BusinessEntities
Imports BE = BusinessEntities
Imports BusinessLogicLayer

Partial Class _Default
    Inherits System.Web.UI.Page

    Dim objUsuDTO As New UsuarioDTO
    Dim objReqDTO As New RequisicionDTO

    Dim objUsuBL As New UsuarioBL
    Dim objReqBL As New RequisicionBL

    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIngresar.Click
        Dim strmsj As String
        If objUsuBL.AutentificarUsuario(txtUsuario.Text, txtContraseña.Text).Tables("UsuarioValidado").Rows.Count = 0 Then
            strmsj = "Verificar usuario y contraseña"
            Dim script As String = "<script language=Javascript>"
            script += "alert('" & strmsj & "');"
            script += "</script>"
            Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)
            Exit Sub
        Else
            Dim codigo As String
            codigo = objUsuBL.AutentificarUsuario(txtUsuario.Text, txtContraseña.Text).Tables("UsuarioValidado").Rows(0).Item(0)
            'Almacenamos el código del USUARIO en una variable Session
            Session("USUARIO") = codigo

            Dim usu As String
            usu = Session("USUARIO")

            Dim bean As New BE.UsuarioDTO
            bean.CodigoCargo = usu


            If usu.Equals("1") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home.aspx")
            End If

            If usu.Equals("2") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home.aspx")
            End If

            If usu.Equals("3") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home2.aspx")
            End If

            If usu.Equals("4") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home2.aspx")
            End If

            If usu.Equals("5") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home2.aspx")
            End If

            If usu.Equals("6") Then

                FormsAuthentication.RedirectFromLoginPage(codigo, False)
                Response.Redirect("Home2.aspx")
            End If







        End If
    End Sub
End Class
